home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / 3dTruchet.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  7.0 KB  |  232 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ;
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ;    3dTruchet  - a script to create Truchet patterns 
  19. ;                 by Adrian Likins <aklikins@eos.ncsu.edu>
  20. ;                 http://www4.ncsu.edu/~aklikins/
  21. ;    version about .8 give or take
  22. ;
  23. ;  Lots of thanks to Quartic for his help.
  24. ;
  25. ;
  26. ;         The utility of this script is left as an exercise for the reader.
  27.  
  28. (define (center-ellipse img
  29.             cx
  30.             cy
  31.             rx
  32.             ry
  33.             op
  34.             aa
  35.             feather
  36.             frad)
  37.   (gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx) (+ ry ry)
  38.                op aa feather frad))
  39.  
  40. (define (use-tile img
  41.           drawable
  42.           height
  43.           width
  44.           img2
  45.           drawable2
  46.           xoffset
  47.           yoffset)
  48.   (gimp-edit-copy drawable2)
  49.   (let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
  50.     (gimp-layer-set-offsets floating-sel xoffset yoffset)
  51.     (gimp-floating-sel-anchor floating-sel)
  52.     )
  53.   )
  54.  
  55.  
  56. (define (create-tile img
  57.              drawable1
  58.              drawable2
  59.              size
  60.              thickness
  61.              backcolor
  62.              begincolor
  63.              endcolor
  64.              supersample)
  65.   (let* (
  66.      (half-thickness (/ thickness 2))
  67.      (outer-radius (+ (/ size 2) half-thickness))
  68.      (inner-radius (- (/ size 2) half-thickness))
  69.      )
  70.  
  71.     (gimp-selection-all img)
  72.     (gimp-context-set-background backcolor)
  73.     (gimp-edit-fill drawable1 BACKGROUND-FILL)
  74.  
  75.     (let* (
  76.        (tempSize (* size 3))
  77.        (temp-img (car (gimp-image-new tempSize tempSize RGB)))
  78.        (temp-draw (car (gimp-layer-new temp-img tempSize tempSize
  79.                        RGB-IMAGE "Jabar" 100 NORMAL-MODE)))
  80.              (temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize
  81.                         RGB-IMAGE "Jabar" 100 NORMAL-MODE))))
  82.  
  83.       (gimp-image-undo-disable temp-img)
  84.       (gimp-image-add-layer temp-img temp-draw 0)
  85.       (gimp-image-add-layer temp-img temp-draw2 0)
  86.       (gimp-context-set-background backcolor)
  87.       (gimp-edit-fill temp-draw BACKGROUND-FILL)
  88.       (gimp-edit-fill temp-draw2 BACKGROUND-FILL)
  89.  
  90.       ;weird aint it
  91.       (gimp-context-set-background begincolor)
  92.       (gimp-context-set-foreground endcolor)
  93.  
  94.       (center-ellipse temp-img size size outer-radius outer-radius
  95.               CHANNEL-OP-REPLACE TRUE FALSE 0)
  96.       (center-ellipse temp-img size size inner-radius inner-radius
  97.               CHANNEL-OP-SUBTRACT TRUE FALSE 0)
  98.       
  99.       (center-ellipse temp-img (* size 2) (*  size 2)  outer-radius outer-radius
  100.               CHANNEL-OP-ADD TRUE FALSE 0)
  101.       (center-ellipse temp-img (* size 2) (*  size 2)  inner-radius inner-radius
  102.               CHANNEL-OP-SUBTRACT TRUE FALSE 0)
  103.  
  104.       (gimp-edit-blend temp-draw FG-BG-RGB-MODE NORMAL-MODE
  105.                GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
  106.                supersample 3 .2 TRUE
  107.                size size (* size 2) (/ size 2))
  108.  
  109.       (center-ellipse temp-img size (* size 2)  outer-radius outer-radius
  110.               CHANNEL-OP-REPLACE TRUE FALSE 0)
  111.       (center-ellipse temp-img size (* size 2) inner-radius inner-radius
  112.               CHANNEL-OP-SUBTRACT TRUE FALSE 0)
  113.  
  114.       (center-ellipse temp-img (* size 2) size  outer-radius outer-radius
  115.               CHANNEL-OP-ADD TRUE FALSE 0)
  116.       (center-ellipse temp-img (* size 2) size  inner-radius inner-radius
  117.               CHANNEL-OP-SUBTRACT TRUE FALSE 0)
  118.  
  119.       ;(gimp-edit-fill temp-img temp-draw2 BACKGROUND-FILL)
  120.  
  121.       (gimp-edit-blend temp-draw2 FG-BG-RGB-MODE NORMAL-MODE
  122.                GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
  123.                supersample 3 .2 TRUE
  124.                size size (* size 2) (* size 2))
  125.  
  126.       (gimp-selection-none temp-img)
  127.  
  128.       (gimp-image-resize temp-img size size (- size) (- size))
  129.       ; woo hoo it works....finally...
  130.  
  131.  
  132.       (gimp-selection-all temp-img)
  133.       (gimp-edit-copy temp-draw)
  134.       (let ((floating-sel (car (gimp-edit-paste drawable2 FALSE))))
  135.     (gimp-floating-sel-anchor floating-sel))
  136.  
  137.       (gimp-edit-copy temp-draw2)
  138.       (let ((floating-sel (car (gimp-edit-paste drawable1 FALSE))))
  139.     (gimp-floating-sel-anchor floating-sel))
  140.  
  141.       ;(let ((drawble (car (gimp-drawable-transform-flip-simple img drawable1
  142.       ;                        ORIENTATION-HORIZONTAL
  143.       ;                        TRUE 0 TRUE)))))
  144.     
  145.  
  146.       ;(gimp-display-new temp-img)
  147.       (gimp-image-delete temp-img)
  148.       )
  149.     )
  150.   )
  151.  
  152.  
  153. (define (script-fu-3dtruchet size
  154.                  thickness
  155.                  backcolor
  156.                  begincolor
  157.                  endcolor
  158.                  supersample
  159.                  xtiles
  160.                  ytiles)
  161.   (let* (
  162.      (width (* size xtiles))
  163.      (height (* size ytiles))
  164.      (img (car (gimp-image-new width height RGB)))
  165.      (tile (car (gimp-image-new size size RGB)))
  166.      (layer-one (car (gimp-layer-new img width height
  167.                      RGB-IMAGE "Rambis" 100 NORMAL-MODE)))
  168.      (tiledraw1 (car (gimp-layer-new tile size size
  169.                      RGB-IMAGE "Johnson" 100 NORMAL-MODE)))
  170.      (tiledraw2 (car (gimp-layer-new tile size size
  171.                      RGB-IMAGE "Cooper" 100 NORMAL-MODE)))
  172.      (Xindex 0)
  173.      (Yindex 0))
  174.  
  175.     (gimp-context-push)
  176.  
  177.     (gimp-image-undo-disable img)
  178.     (gimp-image-undo-disable tile)
  179.  
  180.     (gimp-image-add-layer img layer-one 0)
  181.     (gimp-image-add-layer tile tiledraw1 0)
  182.     (gimp-image-add-layer tile tiledraw2 0)
  183.  
  184.     ;just to look a little better
  185.     (gimp-selection-all img)
  186.     (gimp-context-set-background backcolor)
  187.     (gimp-edit-fill layer-one BACKGROUND-FILL)
  188.     (gimp-selection-none img)
  189.  
  190.     (create-tile tile tiledraw1 tiledraw2 size thickness
  191.          backcolor begincolor endcolor supersample)
  192.     
  193.  
  194.     (while (<= Xindex xtiles)
  195.        (while (<= Yindex ytiles)
  196.           (if (= (rand 2) 0)
  197.               (use-tile img layer-one height width tile
  198.                 tiledraw1 (* Xindex size) (* Yindex size))
  199.               (use-tile img layer-one height width tile
  200.                 tiledraw2 (* Xindex size) (* Yindex size))
  201.               )
  202.           (set! Yindex (+ Yindex 1))
  203.           )
  204.        (set! Yindex 0)
  205.        (set! Xindex (+ Xindex 1))
  206.        )
  207.  
  208.     (gimp-image-delete tile)
  209.     (gimp-image-undo-enable img)
  210.     (gimp-display-new img)
  211.  
  212.     (gimp-context-pop)))
  213.  
  214. (script-fu-register "script-fu-3dtruchet"
  215.             _"3_D Truchet..."
  216.             "3D Truchet pattern"
  217.             "Adrian Likins <aklikins@eos.ncsu.edu>"
  218.             "Adrian Likins"
  219.             "1997"
  220.             ""
  221.             SF-ADJUSTMENT _"Block size"        '(64 5 1000 1 10 0 1)
  222.             SF-ADJUSTMENT _"Thickness"         '(12 2 100 1 10 0 1)
  223.             SF-COLOR      _"Background color"  '(255 255 255)
  224.             SF-COLOR      _"Start blend"       '(0 0 0)
  225.             SF-COLOR      _"End blend"         '(255 255 255)
  226.             SF-TOGGLE     _"Supersample"       TRUE
  227.             SF-ADJUSTMENT _"Number of X tiles" '(5 1 1000 1 10 0 1)
  228.             SF-ADJUSTMENT _"Number of Y tiles" '(5 1 1000 1 10 0 1))
  229.  
  230. (script-fu-menu-register "script-fu-3dtruchet"
  231.              _"<Toolbox>/Xtns/Script-Fu/Patterns")
  232.